home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / hypercar / xcmd / proglib.sit / Resource Library / background_3089.txt < prev    next >
Text File  |  1989-05-28  |  9KB  |  451 lines
  1. -- background: 3089 from stack: in
  2. -- bmap block id: 5209
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Commands
  6. ----- HyperTalk script -----
  7. on AddNewCard name
  8.   doMenu "New Card"
  9.   put name into background field "Name"
  10.   put "XCMD" into background field "resType"
  11. end AddNewCard
  12.  
  13. on idle
  14.   doHilite
  15. end idle
  16.  
  17. on hideFields
  18.   set visible of background field "HighlightAreas" to false
  19.   set visible of background field "AssocList" to false
  20. end hideFields
  21.  
  22. on showFields
  23.   set visible of background field "HighlightAreas" to true
  24.   set visible of background field "AssocList" to true
  25. end showFields
  26.  
  27. on openCard
  28.   if (the version ΓëÑ 1.2) then
  29.     if the cantDelete of this card then
  30.       hide bg btn "Delete"
  31.       hide bg btn "Rename"
  32.     else
  33.       show bg btn "Delete"
  34.       show bg btn "Rename"
  35.     end if
  36.     resetHighlight
  37.   end if
  38. end openCard
  39.  
  40. on openBackground
  41.   show background button "Delete"
  42.   show background button "Rename"
  43.   resetHighlight
  44. end openBackground
  45.  
  46.  
  47.  
  48. -- part 1 (button)
  49. -- low flags: 00
  50. -- high flags: 0001
  51. -- rect: left=7 top=304 right=335 bottom=35
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 3835 / 3835
  54. -- text alignment: 1
  55. -- font id: 0
  56. -- text size: 12
  57. -- style flags: 0
  58. -- line height: 16
  59. -- part name: Prev
  60. ----- HyperTalk script -----
  61. on mouseUp
  62.   go to previous card of this background
  63. end mouseUp
  64.  
  65.  
  66.  
  67. -- part 3 (button)
  68. -- low flags: 80
  69. -- high flags: 8003
  70. -- rect: left=303 top=306 right=331 bottom=397
  71. -- title width / last selected line: 0
  72. -- icon id / first selected line: 0 / 0
  73. -- text alignment: 1
  74. -- font id: 0
  75. -- text size: 12
  76. -- style flags: 0
  77. -- line height: 16
  78. -- part name: Delete
  79. ----- HyperTalk script -----
  80. on mouseUp
  81.   deleteRes background field "AssocList"
  82. end mouseUp
  83.  
  84.  
  85.  
  86. -- part 4 (button)
  87. -- low flags: 00
  88. -- high flags: 8003
  89. -- rect: left=102 top=306 right=331 bottom=199
  90. -- title width / last selected line: 0
  91. -- icon id / first selected line: 0 / 0
  92. -- text alignment: 1
  93. -- font id: 0
  94. -- text size: 12
  95. -- style flags: 0
  96. -- line height: 16
  97. -- part name: Paste
  98. ----- HyperTalk script -----
  99. on mouseUp
  100.   put background field resType && background field "Name" & return into tmp
  101.   put background field "AssocList" after tmp
  102.   go to card "Paste"
  103.   put tmp after card field "ToPaste"
  104. end mouseUp
  105.  
  106.  
  107.  
  108. -- part 5 (button)
  109. -- low flags: 00
  110. -- high flags: 0001
  111. -- rect: left=475 top=26 right=59 bottom=504
  112. -- title width / last selected line: 0
  113. -- icon id / first selected line: 21700 / 21700
  114. -- text alignment: 1
  115. -- font id: 0
  116. -- text size: 12
  117. -- style flags: 0
  118. -- line height: 16
  119. -- part name: Home
  120. ----- HyperTalk script -----
  121. on mouseUp
  122.   go home
  123. end mouseUp
  124.  
  125.  
  126.  
  127. -- part 6 (button)
  128. -- low flags: 00
  129. -- high flags: 0001
  130. -- rect: left=476 top=305 right=336 bottom=504
  131. -- title width / last selected line: 0
  132. -- icon id / first selected line: 29484 / 29484
  133. -- text alignment: 1
  134. -- font id: 0
  135. -- text size: 12
  136. -- style flags: 0
  137. -- line height: 16
  138. -- part name: Next
  139. ----- HyperTalk script -----
  140. on mouseUp
  141.   go to next card of this background
  142. end mouseUp
  143.  
  144.  
  145.  
  146. -- part 7 (field)
  147. -- low flags: 00
  148. -- high flags: 0007
  149. -- rect: left=103 top=157 right=271 bottom=397
  150. -- title width / last selected line: 0
  151. -- icon id / first selected line: 0 / 0
  152. -- text alignment: 0
  153. -- font id: 3
  154. -- text size: 10
  155. -- style flags: 0
  156. -- line height: 13
  157. -- part name: Description
  158.  
  159.  
  160. -- part 8 (field)
  161. -- low flags: 00
  162. -- high flags: 0007
  163. -- rect: left=103 top=87 right=138 bottom=396
  164. -- title width / last selected line: 0
  165. -- icon id / first selected line: 0 / 0
  166. -- text alignment: 0
  167. -- font id: 3
  168. -- text size: 10
  169. -- style flags: 0
  170. -- line height: 13
  171. -- part name: Syntax
  172.  
  173.  
  174. -- part 10 (button)
  175. -- low flags: 00
  176. -- high flags: 0001
  177. -- rect: left=475 top=60 right=93 bottom=504
  178. -- title width / last selected line: 0
  179. -- icon id / first selected line: 24317 / 24317
  180. -- text alignment: 1
  181. -- font id: 0
  182. -- text size: 12
  183. -- style flags: 0
  184. -- line height: 16
  185. -- part name: Welcome
  186. ----- HyperTalk script -----
  187. on mouseUp
  188.   go to card "Welcome"
  189. end mouseUp
  190.  
  191.  
  192.  
  193. -- part 11 (button)
  194. -- low flags: 00
  195. -- high flags: 8003
  196. -- rect: left=423 top=220 right=245 bottom=507
  197. -- title width / last selected line: 0
  198. -- icon id / first selected line: 0 / 0
  199. -- text alignment: 1
  200. -- font id: 0
  201. -- text size: 12
  202. -- style flags: 0
  203. -- line height: 16
  204. -- part name: Sounds
  205. ----- HyperTalk script -----
  206. on mouseUp
  207.   go to first card of background "Sounds"
  208. end mouseUp
  209.  
  210.  
  211.  
  212. -- part 12 (button)
  213. -- low flags: 00
  214. -- high flags: 8003
  215. -- rect: left=423 top=162 right=187 bottom=507
  216. -- title width / last selected line: 0
  217. -- icon id / first selected line: 0 / 0
  218. -- text alignment: 1
  219. -- font id: 0
  220. -- text size: 12
  221. -- style flags: 0
  222. -- line height: 16
  223. -- part name: Functions
  224. ----- HyperTalk script -----
  225. on mouseUp
  226.   go to first card of background "Functions"
  227. end mouseUp
  228.  
  229.  
  230.  
  231. -- part 13 (button)
  232. -- low flags: 00
  233. -- high flags: 8003
  234. -- rect: left=423 top=191 right=216 bottom=507
  235. -- title width / last selected line: 0
  236. -- icon id / first selected line: 0 / 0
  237. -- text alignment: 1
  238. -- font id: 0
  239. -- text size: 12
  240. -- style flags: 0
  241. -- line height: 16
  242. -- part name: Icons
  243. ----- HyperTalk script -----
  244. on mouseUp
  245.   go to first card of background "Icons"
  246. end mouseUp
  247.  
  248.  
  249.  
  250. -- part 14 (field)
  251. -- low flags: 00
  252. -- high flags: 0004
  253. -- rect: left=139 top=26 right=54 bottom=379
  254. -- title width / last selected line: 0
  255. -- icon id / first selected line: 0 / 0
  256. -- text alignment: 1
  257. -- font id: 3
  258. -- text size: 18
  259. -- style flags: 256
  260. -- line height: 24
  261. -- part name: Name
  262.  
  263.  
  264. -- part 19 (button)
  265. -- low flags: 00
  266. -- high flags: 8003
  267. -- rect: left=423 top=249 right=274 bottom=507
  268. -- title width / last selected line: 0
  269. -- icon id / first selected line: 0 / 0
  270. -- text alignment: 1
  271. -- font id: 0
  272. -- text size: 12
  273. -- style flags: 0
  274. -- line height: 16
  275. -- part name: Add
  276. ----- HyperTalk script -----
  277. on mouseUp
  278.   go to card "Add"
  279. end mouseUp
  280.  
  281.  
  282.  
  283. -- part 21 (button)
  284. -- low flags: 80
  285. -- high flags: A003
  286. -- rect: left=206 top=306 right=331 bottom=296
  287. -- title width / last selected line: 0
  288. -- icon id / first selected line: 0 / 0
  289. -- text alignment: 1
  290. -- font id: 0
  291. -- text size: 12
  292. -- style flags: 0
  293. -- line height: 16
  294. -- part name: Rename
  295. ----- HyperTalk script -----
  296. on mouseUp
  297.   renameRes
  298. end mouseUp
  299.  
  300.  
  301.  
  302. -- part 23 (field)
  303. -- low flags: 00
  304. -- high flags: 0000
  305. -- rect: left=6 top=30 right=53 bottom=58
  306. -- title width / last selected line: 0
  307. -- icon id / first selected line: 0 / 0
  308. -- text alignment: 0
  309. -- font id: 3
  310. -- text size: 14
  311. -- style flags: 256
  312. -- line height: 18
  313. -- part name: resType
  314.  
  315.  
  316. -- part 26 (button)
  317. -- low flags: 00
  318. -- high flags: C005
  319. -- rect: left=221 top=140 right=156 bottom=294
  320. -- title width / last selected line: 0
  321. -- icon id / first selected line: 0 / 0
  322. -- text alignment: 1
  323. -- font id: 0
  324. -- text size: 12
  325. -- style flags: 0
  326. -- line height: 16
  327. -- part name: Locked
  328. ----- HyperTalk script -----
  329. on mouseUp
  330.   put not the hilite of me into state
  331.   set lockText of background field "Syntax" to state
  332.   set lockText of background field "Description" to state
  333.   set hilite of me to state
  334. end mouseUp
  335.  
  336.  
  337.  
  338. -- part 27 (field)
  339. -- low flags: 80
  340. -- high flags: 0007
  341. -- rect: left=156 top=120 right=205 bottom=356
  342. -- title width / last selected line: 0
  343. -- icon id / first selected line: 0 / 0
  344. -- text alignment: 0
  345. -- font id: 3
  346. -- text size: 12
  347. -- style flags: 0
  348. -- line height: 16
  349. -- part name: HighlightAreas
  350.  
  351.  
  352. -- part 28 (field)
  353. -- low flags: 80
  354. -- high flags: 0007
  355. -- rect: left=158 top=55 right=265 bottom=326
  356. -- title width / last selected line: 0
  357. -- icon id / first selected line: 0 / 0
  358. -- text alignment: 0
  359. -- font id: 4
  360. -- text size: 9
  361. -- style flags: 0
  362. -- line height: 12
  363. -- part name: AssocList
  364.  
  365.  
  366. -- part 29 (button)
  367. -- low flags: 00
  368. -- high flags: 8003
  369. -- rect: left=4 top=56 right=78 bottom=104
  370. -- title width / last selected line: 0
  371. -- icon id / first selected line: 0 / 0
  372. -- text alignment: 1
  373. -- font id: 0
  374. -- text size: 12
  375. -- style flags: 0
  376. -- line height: 16
  377. -- part name: Associate╔
  378. ----- HyperTalk script -----
  379. on mouseUp
  380.   put the short name of this card into tmp
  381.   go to card "Associate"
  382.   initAssoc tmp
  383. end mouseUp
  384.  
  385.  
  386.  
  387. -- part 30 (button)
  388. -- low flags: 00
  389. -- high flags: 8003
  390. -- rect: left=423 top=133 right=158 bottom=507
  391. -- title width / last selected line: 0
  392. -- icon id / first selected line: 0 / 0
  393. -- text alignment: 1
  394. -- font id: 0
  395. -- text size: 12
  396. -- style flags: 0
  397. -- line height: 16
  398. -- part name: Cursors
  399. ----- HyperTalk script -----
  400. on mouseUp
  401.   go to first card of background "Cursors"
  402. end mouseUp
  403.  
  404.  
  405.  
  406. -- part 32 (button)
  407. -- low flags: 00
  408. -- high flags: 0001
  409. -- rect: left=2 top=256 right=300 bottom=43
  410. -- title width / last selected line: 0
  411. -- icon id / first selected line: 32670 / 32670
  412. -- text alignment: 1
  413. -- font id: 0
  414. -- text size: 12
  415. -- style flags: 0
  416. -- line height: 16
  417. -- part name: Scan
  418. ----- HyperTalk script -----
  419. on mouseUp
  420.   repeat until the mouseClick
  421.     visual effect dissolve
  422.     go to next card of this background
  423.   end repeat
  424. end mouseUp
  425.  
  426.  
  427.  
  428. -- part 33 (button)
  429. -- low flags: 00
  430. -- high flags: 0001
  431. -- rect: left=2 top=210 right=254 bottom=43
  432. -- title width / last selected line: 0
  433. -- icon id / first selected line: 20186 / 20186
  434. -- text alignment: 1
  435. -- font id: 0
  436. -- text size: 12
  437. -- style flags: 0
  438. -- line height: 16
  439. -- part name: Sort
  440. ----- HyperTalk script -----
  441. on mouseUp
  442.   lock screen
  443.   set cursor to watch
  444.   put the name of this cd into start
  445.   sort by fld "Name"
  446.   go to start
  447.   set cursor to hand
  448.   unlock screen
  449. end mouseUp
  450.  
  451.